home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / dissolvincr.xdve < prev    next >
Text File  |  1996-01-02  |  2KB  |  78 lines
  1. /* Dissolvenza incrociata classica in 50 FRAMES */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpIma = 'T:immagine'
  9. TmpIma2 = 'T:immagine2'
  10. DISSOLVE = 2
  11. DISSOLVE2 = 2
  12. NUMEROFRAME = 0
  13.  
  14. GETFILES '"Seleziona la PRIMA immagine"'
  15.  IF RC ~= 0 THEN EXIT
  16.   PRIMA = ADPRO_RESULT
  17.    IF PRIMA = "" THEN EXIT
  18.     LOADER "UNIVERSAL" PRIMA
  19.     
  20. CALL Controllo
  21.    
  22. SAVER "IFF" TmpIma "RAW"
  23.    XSIZE
  24.     BASE = ADPRO_RESULT
  25.    YSIZE
  26.     ALTZ = ADPRO_RESULT
  27.  
  28. GETFILES '"Seleziona la SECONDA immagine"'
  29.  IF RC ~= 0 THEN EXIT
  30.   SECONDA = ADPRO_RESULT
  31.    IF SECONDA = "" THEN EXIT
  32.      LOADER "UNIVERSAL" SECONDA
  33.      
  34. CALL Controllo
  35.      
  36. XSIZE
  37.      BASE2 = ADPRO_RESULT
  38.     YSIZE
  39.      ALTZ2 = ADPRO_RESULT
  40. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  41.                           ABS_SCALE (BASE) (ALTZ)
  42.                           END
  43. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  44.                           ABS_SCALE (BASE) (ALTZ)
  45.                           END
  46.      SAVER "IFF" TmpIma2 "RAW"
  47.  
  48. GETfile '"Path e nomebase 50 frames elaborati"'
  49. IF RC ~= 0 THEN EXIT
  50. OUTFILE = ADPRO_RESULT
  51. if OUTFILE = "" then exit
  52.   
  53.    DO i=1 to 50
  54. LOADER "IFF" TmpIma
  55. LOADER "IFF" TmpIma2 COMPOFFSET 0 0 (DISSOLVE)
  56.     DISSOLVE = (DISSOLVE + DISSOLVE2)
  57.     NUMEROFRAME = (NUMEROFRAME + 1)
  58. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  59.  SFORMAT "IFF"
  60.   SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  61.    SAY "Salvo il frame Num." NUMERO
  62.     END    
  63.  
  64. ADDRESS COMMAND "Delete >NIL:" TmpIma
  65. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  66. EXIT
  67.  
  68. Controllo:
  69. IMAGE_TYPE
  70.   ImageType = ADPRO_RESULT
  71.   IF ImageType = (COLOR BITPLANE) THEN
  72.     OPERATOR "RENDERED_TO_RAW"
  73.   IF ImageType = (GRAY BITPLANE) THEN
  74.     OPERATOR "GRAY_TO_COLOR"
  75.   IF ImageType = (GRAY) THEN
  76.     OPERATOR "GRAY_TO_COLOR"
  77. RETURN
  78.